home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / CIS.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.5 KB  |  74 lines
  1. # CompuServe PPP login script
  2. # Copyright 1995 Quarterdeck Office Systems
  3. # 6-7-95 CEL
  4. # Last updated 7/6/95 CEL
  5.  
  6. #define the variables we will need
  7.  
  8. String username
  9. String password
  10. String IPAddress
  11.  
  12. # uncomment for debugging
  13. # Trace on  
  14.  
  15. # reset maximum login timeout.  
  16.  
  17. SetTimeout      60             
  18.  
  19. print "======================================"
  20. print "NOTE: The data coming from CompuServe "
  21. print "during logon will appear corrupted.   "
  22. print "This is normal.                       "
  23. print "======================================"
  24.  
  25.  
  26. CfgGetValue "Username" username
  27.  
  28. if result = 0 then
  29.  
  30.     GetInput "Enter your CompuServe ID:" username
  31.  
  32.     if result = 0 then
  33.         Print "Warning, no CompuServe ID entered"
  34.     else
  35.         Print "CompuServe ID set to ["; username; "]"
  36.     endif
  37.  
  38. endif
  39.  
  40. # get password from access method
  41.  
  42. CfgGetValue "Password" password
  43.  
  44. # if the Password field is empty, prompt the user for it.
  45.  
  46. if result = 0 then
  47.     GetPassword "Enter your password" password
  48.  
  49.     if result = 0 then
  50.         Print "Warning, no password entered"
  51.     else
  52.         # NOTE: Don't print password.
  53.         Print "Password set."
  54.     endif
  55.  
  56. endif
  57.  
  58. Delay 1
  59. CommSend    "%r"
  60. CommWaitFor "Ho≤táNßφe:"
  61. CommSend    "CIS"
  62. CommSend    "%r"
  63.  
  64. CommWaitFor "U≤erá╔D:"
  65. CommSend    username            # send user name
  66. CommSend    " /GO:ppp89 \" 
  67. CommSend    password            # send password
  68. CommSend    "%r"                # send carriage return
  69. CommWaitFor "PPP"
  70. CommWaitFor "e..."
  71.  
  72. END                         
  73.  
  74.